home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / ba_v6_2.sda / MAILING LABELS (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  5KB  |  165 lines
  1. 10 POKE53280,0:POKE53281,0:PRINTCHR$(142)
  2. 12 CLR:OPEN15,8,15:CR$=CHR$(13):QO$=CHR$(34):POKE788,52:POKE792,193
  3. 14 R$=" RETURN [146][158]":Y$="(Y[158]/N[158])":B$="":C$="":E$="[145][145][145][145][145][145][145][145][145][145][145]"
  4. 16 LH$="[151] [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  5. 18 K$="[158]   USE  UP [158][146] OR  DOWN [158][146] TO CHOOSE :":CD$="[147]"+B$+C$
  6. 20 BL$="                                      ":S7$="       ":SP$=BL$+BL$
  7. 22 AN=1:UP$="[145]":DN$="":C1$="":C2$="[154]"
  8. 24 DIML6$(20),L1$(20),L2$(20),L3$(20),L4$(20),L5$(20):GOTO126
  9. 26 LL=34:PRINT"  >";
  10. 28 OPEN9,0:AN$="":BN$="":POKE204,0
  11. 30 GET#9,BN$:IFBN$=""THEN30
  12. 32 IFBN$=CHR$(13)THENBN$="":CLOSE9:PRINT" ":POKE204,1:RETURN
  13. 34 IFBN$=""ORBN$="[157]"ORBN$="[145]"ORBN$=""THENGOTO30
  14. 36 IFBN$=""ORBN$="[147]"ORBN$=CHR$(34)THEN30
  15. 38 IFLEN(AN$)=LLTHENPRINT" ":PRINT"";LL;"LETTER LIMIT.":BN$=CHR$(13):GOTO32
  16. 40 IFAN$=""ANDBN$=CHR$(20)THEN30
  17. 42 IFBN$=CHR$(20)THENPRINT" [157][157] [157]";:AN$=LEFT$(AN$,LEN(AN$)-1):GOTO30
  18. 44 AN$=AN$+BN$:PRINTBN$;:GOTO30
  19. 46 INPUT#15,EN,EM$,ET,ES
  20. 48 IF EN=0 THEN RETURN
  21. 50 IFNF=1THENNF=0:RETURN
  22. 52 PRINT"[147]";B$;B$;" *** ERROR ON DISK *** [146]":PRINTEN;" ";EM$;" ";ET;" ";ES
  23. 54 PRINT" DOS ERROR MESSAGE # "EN
  24. 56 PRINT"[158] (PROGRAM WILL CONTINUE IN A MOMENT)"
  25. 58 CLOSE8:FORT=1TO12345:NEXTT:POKE64,206:GOTO106
  26. 60 PRINTK$"[145]"
  27. 62 POKE198,0:FORX=1TOMN:PRINTDN$;S7$;C1$;SL$(X):NEXTX
  28. 64 PRINT"[158]   PRESS "R$" TO ENTER SELECTION.[145]"
  29. 66 PRINT"";C5$;S7$;C2$;SL$(1)
  30. 68 GETAN$:IFAN$<>""THEN80
  31. 70 JV=PEEK(56320):FR=JVAND16:JV=15-(JVAND15)
  32. 72 IFJV=1THENAN$=CHR$(145):FORT=1TO100:NEXTT:GOTO80
  33. 74 IFJV=2THENAN$=CHR$(17):FORT=1TO100:NEXTT:GOTO80
  34. 76 IFFR<>16THENAN$=CHR$(13):FORT=1TO350:NEXTT:GOTO80
  35. 78 GOTO68
  36. 80 IFAN$=CHR$(13)THENAN$=STR$(AN):RETURN
  37. 82 IFAN$=CHR$(145)ORAN$=CHR$(29)THEN88
  38. 84 IFAN$=CHR$(17)THEN96
  39. 86 GOTO68
  40. 88 LN=AN:AN=AN-1:IFAN=0THENAN=MN
  41. 90 PRINT"[145]";S7$;C1$;SL$(LN)
  42. 92 IFLN=1THENPRINTC4$;S7$;C2$;SL$(AN):GOTO68
  43. 94 PRINTUP$;"[145][145]";S7$;C2$;SL$(AN):GOTO68
  44. 96 LN=AN:AN=AN+1:IFAN=MN+1THENAN=1
  45. 98 PRINT"[145]";S7$;C1$;SL$(LN)
  46. 100 IFLN=MNTHENPRINTC3$;S7$;C2$;SL$(AN):GOTO68
  47. 102 PRINTDN$;S7$;C2$;SL$(AN):GOTO68
  48. 104 Q$=CHR$(34):LJ$="   [155]                                  [145]":OPEN4,4
  49. 106 PL$="[147][154]         P R I N T   L A B E L S       ":PRINTPL$:AN=1
  50. 108 FORX=1TO6:NN$(X)="":NEXTX:PRINTK$
  51. 110 C3$="":FORX=1TOMN:C3$=C3$+"[145]":NEXTX
  52. 112 C4$="":FORX=1TOMN-2:C4$=C4$+"":NEXTX:IFMN=2THENC4$=""
  53. 114 C5$="":UP$="":DN$="":GOSUB62:UP$="[145]":DN$=""
  54. 116 IFAN=1THEN144
  55. 118 IFAN=MNTHEN334
  56. 124 E=AN:MX=MN:GOTO206
  57. 126 PRINTCD$;"         ***[158] LOADING LABELS ***"
  58. 128 OPEN8,8,8,"0:LABELS,S,R":GOSUB46
  59. 130 INPUT#8,NL$:GOSUB46
  60. 132 NL=VAL(NL$):IFNL=0THEN142
  61. 134 G=2:IFNL=18THENG=1
  62. 136 FORX=GTONL+1
  63. 138 INPUT#8,L6$(X),L1$(X),L2$(X),L3$(X),L4$(X),L5$(X)
  64. 140 GOSUB46:NEXTX
  65. 142 CLOSE8:MN=NL+2:GOSUB312:GOTO104
  66. 144 IFNL<>17THEN154
  67. 146 PRINT"[147]";B$;B$;"YOU ARE AT THE MAXIMUM # OF LABELS."
  68. 148 PRINT"YOU MUST NOW DELETE AN EXISTING LABEL"
  69. 150 PRINT"BEFORE YOU CAN CREATE A NEW LABEL."
  70. 152 FORT=1TO6000:NEXTT:GOTO106
  71. 154 PRINTPL$"":RE$=""
  72. 156 FORX=1TO5:PRINT"   [155]                                  [146]":NEXTX
  73. 158 FORF=1TO5
  74. 160 PRINT"";B$;B$;"[158]ENTER LINE #[154]";F;"[158]:":PRINTBL$
  75. 162 PRINT"[155]   ^                                ^[145][145][145]"
  76. 164 GOSUB26:NN$(F)=AN$
  77. 166 PRINT"":FORX=1TOF:PRINT"";:NEXTX:PRINT
  78. 168 PRINT"   [155]                                  [145]":PRINT"   [155]";NN$(F)
  79. 170 IFCJ=1THENCJ=0:GOTO174
  80. 172 NEXTF
  81. 174 PRINT"";C$;C$;"[158]DO YOU WISH TO MAKE CHANGES? "Y$;
  82. 176 GETAN$:IFAN$=""THEN176
  83. 178 IFAN$="Y"THENPRINT" "AN$:GOTO184
  84. 180 IFAN$="N"THENPRINT" "AN$:GOTO194
  85. 182 GOTO176
  86. 184 PRINT"[158]ENTER LINE# (1-5[158]) TO CHANGE."
  87. 186 GETAN$:IFAN$=""THEN186
  88. 188 IFVAL(AN$)>5THEN186
  89. 190 IFVAL(AN$)<1THEN186
  90. 192 F=VAL(AN$):PRINT"[145][145][145]"BL$:PRINT""BL$:CJ=1:GOTO160
  91. 194 PRINT"[158]ENTER A TITLE FOR THIS LABEL:"
  92. 196 GOSUB26:IFAN$=""THENAN$="?"
  93. 198 NN$(6)=" "+AN$+" ":LS$="S"
  94. 200 SL$(MN+1)=SL$(MN)
  95. 202 L6$(MN)=NN$(6):L1$(MN)=NN$(1):L2$(MN)=NN$(2):L3$(MN)=NN$(3):L4$(MN)=NN$(4)
  96. 204 L5$(MN)=NN$(5):SL$(MN)=L6$(MN):MN=MN+1:NL=NL+1:GOTO106
  97. 206 PRINTPL$""
  98. 208 PRINTLJ$:PRINT"   [155]";L1$(E)
  99. 210 PRINTLJ$:PRINT"   [155]";L2$(E)
  100. 212 PRINTLJ$:PRINT"   [155]";L3$(E)
  101. 214 PRINTLJ$:PRINT"   [155]";L4$(E)
  102. 216 PRINTLJ$:PRINT"   [155]";L5$(E)
  103. 218 PRINT:AN=1
  104. 220 SL$(1)=" PRINT THIS LABEL NOW "
  105. 222 SL$(2)=" PRINT ALIGNMENT PATTERN[160]"
  106. 224 SL$(3)=" PRINT A SPECIFIC QUANTITY[160]"
  107. 226 SL$(4)=" DELETE THIS LABEL[160]"
  108. 228 SL$(5)=" RETURN TO LABEL MENU[160]"
  109. 230 MN=5:C3$="[145][145][145][145][145][145][145][145][145]":C4$=C$:C5$=B$+C$:GOSUB60
  110. 232 IFAN=1THENGOSUB274:GOTO206
  111. 234 IFAN=2THENGOSUB288:GOTO206
  112. 236 IFAN=3THEN242
  113. 238 IFAN=4THEN296
  114. 240 IFAN=5THENMN=MX:GOSUB312:GOTO106
  115. 242 PY=5:GOTO316
  116. 244 INPUT"[158]   PRINT LABEL HOW MANY TIMES         [157][157][157][157][157][157][157][157]";QT
  117. 246 IFQT<1ORQT>99THENPRINT"[145][145][145][145][145][145][145]":GOTO242
  118. 248 FORX=1TOQT:GOSUB274:NEXTX:GOTO206
  119. 250 PRINTCD$;"         *** [158]SAVING LABELS ***":XL=2
  120. 252 OPEN8,8,8,"@0:LABELS,S,W":GOSUB46
  121. 254 NL$=STR$(NL)
  122. 256 PRINT#8,NL$
  123. 258 FORX=2TONL+1
  124. 260 PRINT#8,Q$+L6$(X)+Q$
  125. 262 PRINT#8,Q$+L1$(X)+Q$
  126. 264 PRINT#8,Q$+L2$(X)+Q$
  127. 266 PRINT#8,Q$+L3$(X)+Q$
  128. 268 PRINT#8,Q$+L4$(X)+Q$
  129. 270 PRINT#8,Q$+L5$(X)+Q$
  130. 272 GOSUB46:NEXTX:CLOSE8:RETURN
  131. 274 PY=3:GOTO316
  132. 276 PRINT#4,L1$(E)
  133. 278 PRINT#4,L2$(E)
  134. 280 PRINT#4,L3$(E)
  135. 282 PRINT#4,L4$(E)
  136. 284 PRINT#4,L5$(E)
  137. 286 PRINT#4:RETURN
  138. 288 PY=4:GOTO316
  139. 290 PRINT#4,"**********************************"
  140. 292 FORX=1TO3:PRINT#4,"*                                *":NEXTX
  141. 294 PRINT#4,"**********************************":PRINT#4:RETURN
  142. 296 PRINT"[158]   PROCEED WITH[160]DELETEING [158]LABEL? "Y$"[145][145]"
  143. 298 GETAN$:IFAN$=""THEN298
  144. 300 IFAN$="N"THEN206
  145. 302 IFAN$="Y"THEN306
  146. 304 GOTO298
  147. 306 FORX=ETOMX:L6$(X)=L6$(X+1):L1$(X)=L1$(X+1):L2$(X)=L2$(X+1):L3$(X)=L3$(X+1)
  148. 308 L4$(X)=L4$(X+1):L5$(X)=L5$(X+1):NEXTX
  149. 310 NL=NL-1:MN=MX-1:LS$="S":GOSUB312:GOTO106
  150. 312 SL$(1)=" CREATE A NEW LABEL ":FORX=2TONL+1:SL$(X)=L6$(X):NEXTX
  151. 314 SL$(MN)=" RETURN TO ENTRY MENU ":RETURN
  152. 316 IFPC=1THEN332
  153. 320 PRINTCD$"[154]PLEASE BE SURE YOUR PRINTER IS TURNED ON[146]"
  154. 322 PRINT"[158]     PRESS "R$" TO PROCEED,"
  155. 324 PRINT"[158]    OR PRESS 'C[158]' TO CANCEL PRINTING"
  156. 326 GETAN$:IFAN$=CHR$(13)THENPC=1:GOTO332
  157. 328 IFAN$="C"THEN206
  158. 330 GOTO326
  159. 332 ONPY-2GOTO276,290,244
  160. 334 IFLS$="S"THENGOSUB250
  161. 336 CLOSE4:PRINT"[147]       ***[158] ONE MOMENT PLEASE ***"
  162. 338 PRINT"[144]LOAD"CHR$(34)"MENU";
  163. 340 PRINTCHR$(34)",8";
  164. 342 POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:END
  165.